home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / drawer.zip / COMMAND.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  389b  |  32 lines
  1. {$L-,D-}
  2.  
  3. unit Commands;
  4.  
  5. interface
  6.  
  7. uses Button;
  8.  
  9. type
  10.     CommandProc = procedure;
  11.     Command =    object(Button)
  12.                     Proc : CommandProc;
  13.                     procedure SetProc( f : CommandProc );
  14.                     procedure DoIt;
  15.                 end;
  16.  
  17. implementation
  18.  
  19. procedure Command.SetProc( f : CommandProc );
  20. begin
  21.     self.Proc := f;
  22. end;
  23.  
  24. procedure Command.DoIt;
  25. begin
  26.     self.Proc;
  27. end;
  28.  
  29. begin
  30. end.
  31.  
  32.